home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __the_arcade__ / sea_hunt / card_7679.txt < prev    next >
Text File  |  1990-09-08  |  14KB  |  635 lines
  1. -- card: 7679 from stack: in
  2. -- bmap block id: 7832
  3. -- flags: 0000
  4. -- background id: 5171
  5. -- name: Configure
  6. ----- HyperTalk script -----
  7. --
  8. --
  9. --   This stack and it's scripts and graphics are copyright 1989,
  10. --   Prophecy Software Inc.  All rights reserved.
  11. --
  12. --   You may examine this code for your own benifit.
  13. --   If you wish to make changes that enhance the stack please make
  14. --   them to a copy and contact us at:
  15. --
  16. --   Prophecy Software Inc.
  17. --   3650 Silverside Rd. Suite 3
  18. --   Wilmington, DE 19810
  19. --   (302) 994-1502
  20. --
  21. --   We will be happy to consider distributing an updated version with
  22. --   propper credit given to the author.  distribution of copies of this
  23. --   stack with un-authorized alterations constitures copyright
  24. --   violation and fraud.
  25.  
  26. function do_reset
  27. global baud, bits, stop_bits, parity
  28.  
  29. get resetmodem(baud, bits, first char of parity, stop_bits)
  30. put baud into card field "the baud"
  31. put bits into card field "the bits"
  32. put stop_bits into card field "the stop bits"
  33. put parity into card field "the parity"
  34. end do_reset
  35.  
  36. on opencard
  37.   global baud, bits, stop_bits, parity
  38.   put card field "the baud" into baud
  39.   put card field "the bits" into bits
  40.   put card field "the stop bits" into stop_bits
  41.   put card field "the parity" into parity
  42.  
  43.   get resetmodem(baud, bits, first char of parity, stop_bits)
  44. end opencard
  45.  
  46. on idle
  47.   get readmodem()
  48.   if it is 0 then exit idle
  49.  
  50.   if third word of it is "ΓÇó" then exit idle
  51.   put it into card field "the modem"
  52.  
  53.   repeat while it is not 0
  54.     get readmodem()
  55.     if it is not 0 then put  it after card field "the Modem"
  56.   end repeat
  57. end idle
  58.  
  59.  
  60.  
  61. -- part 1 (button)
  62. -- low flags: 00
  63. -- high flags: 8006
  64. -- rect: left=55 top=64 right=81 bottom=120
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: - 300
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   global baud
  76.   set hilite of button "- 300" to false
  77.   set hilite of button "- 1200" to false
  78.   set hilite of button "- 2400" to false
  79.   set hilite of button "- 9600" to false
  80.   set hilite of target to true
  81.   get short name of target
  82.   put second word of it into baud
  83.  
  84.   get do_reset()
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 2 (button)
  90. -- low flags: 00
  91. -- high flags: 8006
  92. -- rect: left=55 top=80 right=97 bottom=120
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: - 1200
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   global baud
  104.   set hilite of button "- 300" to false
  105.   set hilite of button "- 1200" to false
  106.   set hilite of button "- 2400" to false
  107.   set hilite of button "- 9600" to false
  108.   set hilite of target to true
  109.   get short name of target
  110.   put second word of it into baud
  111.  
  112.   get do_reset()
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 3 (button)
  118. -- low flags: 00
  119. -- high flags: C006
  120. -- rect: left=55 top=96 right=113 bottom=120
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: - 2400
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   global baud
  132.   set hilite of button "- 300" to false
  133.   set hilite of button "- 1200" to false
  134.   set hilite of button "- 2400" to false
  135.   set hilite of button "- 9600" to false
  136.   set hilite of target to true
  137.   get short name of target
  138.   put second word of it into baud
  139.  
  140.   get do_reset()
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 4 (button)
  146. -- low flags: 00
  147. -- high flags: 8006
  148. -- rect: left=55 top=112 right=129 bottom=120
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: - 9600
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   global baud
  160.   set hilite of button "- 300" to false
  161.   set hilite of button "- 1200" to false
  162.   set hilite of button "- 2400" to false
  163.   set hilite of button "- 9600" to false
  164.   set hilite of target to true
  165.   get short name of target
  166.   put second word of it into baud
  167.  
  168.   get do_reset()
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 5 (button)
  174. -- low flags: 00
  175. -- high flags: C006
  176. -- rect: left=167 top=64 right=81 bottom=216
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: - 8
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   global bits
  188.   set hilite of button "- 8" to false
  189.   set hilite of button "- 7" to false
  190.   set hilite of target to true
  191.   get short name of target
  192.   put second word of it into bits
  193.  
  194.   get do_reset()
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 6 (button)
  200. -- low flags: 00
  201. -- high flags: 8006
  202. -- rect: left=167 top=80 right=97 bottom=216
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: - 7
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   global bits
  214.   set hilite of button "- 8" to false
  215.   set hilite of button "- 7" to false
  216.   set hilite of target to true
  217.   get short name of target
  218.   put second word of it into bits
  219.  
  220.   get do_reset()
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 7 (button)
  226. -- low flags: 00
  227. -- high flags: 8006
  228. -- rect: left=263 top=64 right=81 bottom=328
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: - Odd
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   global parity
  240.   set hilite of button "- Odd" to false
  241.   set hilite of button "- Even" to false
  242.   set hilite of button "- None" to false
  243.   set hilite of target to true
  244.   get short name of target
  245.   put second word of it into parity
  246.  
  247.   get do_reset()
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 8 (button)
  253. -- low flags: 00
  254. -- high flags: 8006
  255. -- rect: left=263 top=80 right=97 bottom=328
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: - Even
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   global parity
  267.   set hilite of button "- Odd" to false
  268.   set hilite of button "- Even" to false
  269.   set hilite of button "- None" to false
  270.   set hilite of target to true
  271.   get short name of target
  272.   put second word of it into parity
  273.  
  274.   get do_reset()
  275. end mouseUp
  276.  
  277.  
  278.  
  279. -- part 9 (button)
  280. -- low flags: 00
  281. -- high flags: C006
  282. -- rect: left=263 top=96 right=113 bottom=328
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: - None
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   global parity
  294.   set hilite of button "- Odd" to false
  295.   set hilite of button "- Even" to false
  296.   set hilite of button "- None" to false
  297.   set hilite of target to true
  298.   get short name of target
  299.   put second word of it into parity
  300.  
  301.   get do_reset()
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 13 (button)
  307. -- low flags: 00
  308. -- high flags: C006
  309. -- rect: left=376 top=63 right=80 bottom=441
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: - 1
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   global stop_bits
  321.   set hilite of button "- 1" to false
  322.   set hilite of button "- 2" to false
  323.   set hilite of target to true
  324.   get short name of target
  325.   put second word of it into stop_bits
  326.  
  327.   get do_reset()
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 14 (button)
  333. -- low flags: 00
  334. -- high flags: 8006
  335. -- rect: left=375 top=80 right=97 bottom=440
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: - 2
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   global stop_bits
  347.   set hilite of button "- 1" to false
  348.   set hilite of button "- 2" to false
  349.   set hilite of target to true
  350.   get short name of target
  351.   put second word of it into stop_bits
  352.  
  353.   get do_reset()
  354. end mouseUp
  355.  
  356.  
  357.  
  358. -- part 15 (field)
  359. -- low flags: 00
  360. -- high flags: 4004
  361. -- rect: left=159 top=164 right=183 bottom=352
  362. -- title width / last selected line: 0
  363. -- icon id / first selected line: 0 / 0
  364. -- text alignment: 1
  365. -- font id: 3
  366. -- text size: 12
  367. -- style flags: 0
  368. -- line height: 16
  369. -- part name: p#
  370.  
  371.  
  372. -- part 16 (button)
  373. -- low flags: 00
  374. -- high flags: A003
  375. -- rect: left=161 top=191 right=210 bottom=350
  376. -- title width / last selected line: 0
  377. -- icon id / first selected line: 0 / 0
  378. -- text alignment: 1
  379. -- font id: 0
  380. -- text size: 12
  381. -- style flags: 0
  382. -- line height: 16
  383. -- part name: I'll Dial Out
  384. ----- HyperTalk script -----
  385. on mouseUp
  386.   put  card field "P#" into the_number
  387.   put "PD" into mode
  388.   if hilite of button "Tone Dial" is true then
  389.     put "TD" into mode
  390.   end if
  391.  
  392.   get writemodem(return & "AT" && mode && the_number & numtochar(13))
  393.  
  394. end mouseUp
  395.  
  396.  
  397.  
  398. -- part 17 (button)
  399. -- low flags: 00
  400. -- high flags: 8006
  401. -- rect: left=391 top=159 right=177 bottom=479
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 0 / 0
  404. -- text alignment: 1
  405. -- font id: 0
  406. -- text size: 12
  407. -- style flags: 0
  408. -- line height: 16
  409. -- part name: Pulse Dial
  410. ----- HyperTalk script -----
  411. on mouseUp
  412.   set hilite of button "Tone Dial" to false
  413.   set hilite of target to true
  414.  
  415. end mouseUp
  416.  
  417.  
  418.  
  419. -- part 18 (button)
  420. -- low flags: 00
  421. -- high flags: C006
  422. -- rect: left=31 top=159 right=177 bottom=121
  423. -- title width / last selected line: 0
  424. -- icon id / first selected line: 0 / 0
  425. -- text alignment: 1
  426. -- font id: 0
  427. -- text size: 12
  428. -- style flags: 0
  429. -- line height: 16
  430. -- part name: Tone Dial
  431. ----- HyperTalk script -----
  432. on mouseUp
  433.   set hilite of button "Pulse Dial" to false
  434.   set hilite of target to true
  435. end mouseUp
  436.  
  437.  
  438.  
  439. -- part 19 (button)
  440. -- low flags: 00
  441. -- high flags: A003
  442. -- rect: left=160 top=218 right=237 bottom=349
  443. -- title width / last selected line: 0
  444. -- icon id / first selected line: 0 / 0
  445. -- text alignment: 1
  446. -- font id: 0
  447. -- text size: 12
  448. -- style flags: 0
  449. -- line height: 16
  450. -- part name: I'll Answer Call
  451. ----- HyperTalk script -----
  452. on mouseUp
  453.  
  454.   get writemodem(return & "AT" && "s0=1")
  455.  
  456. end mouseUp
  457.  
  458.  
  459.  
  460. -- part 21 (field)
  461. -- low flags: 00
  462. -- high flags: 0004
  463. -- rect: left=45 top=253 right=306 bottom=466
  464. -- title width / last selected line: 0
  465. -- icon id / first selected line: 0 / 0
  466. -- text alignment: 0
  467. -- font id: 3
  468. -- text size: 12
  469. -- style flags: 0
  470. -- line height: 16
  471. -- part name: the modem
  472.  
  473.  
  474. -- part 22 (button)
  475. -- low flags: 00
  476. -- high flags: A003
  477. -- rect: left=99 top=309 right=331 bottom=232
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 1
  481. -- font id: 0
  482. -- text size: 12
  483. -- style flags: 0
  484. -- line height: 16
  485. -- part name: Ready to Play
  486. ----- HyperTalk script -----
  487. on mouseUp
  488.   global whom, ship_ok
  489.   visual effect barn door close
  490.   if ship_ok is true then
  491.     send whom to card "start"
  492.   else
  493.     go to card "player board"
  494.   end if
  495.  
  496. end mouseUp
  497.  
  498.  
  499.  
  500. -- part 23 (field)
  501. -- low flags: 80
  502. -- high flags: 0000
  503. -- rect: left=54 top=130 right=149 bottom=122
  504. -- title width / last selected line: 0
  505. -- icon id / first selected line: 0 / 0
  506. -- text alignment: 0
  507. -- font id: 3
  508. -- text size: 12
  509. -- style flags: 0
  510. -- line height: 16
  511. -- part name: the baud
  512.  
  513.  
  514. -- part 24 (field)
  515. -- low flags: 80
  516. -- high flags: 0000
  517. -- rect: left=156 top=130 right=149 bottom=224
  518. -- title width / last selected line: 0
  519. -- icon id / first selected line: 0 / 0
  520. -- text alignment: 0
  521. -- font id: 3
  522. -- text size: 12
  523. -- style flags: 0
  524. -- line height: 16
  525. -- part name: the bits
  526.  
  527.  
  528. -- part 25 (field)
  529. -- low flags: 80
  530. -- high flags: 0000
  531. -- rect: left=261 top=130 right=149 bottom=329
  532. -- title width / last selected line: 0
  533. -- icon id / first selected line: 0 / 0
  534. -- text alignment: 0
  535. -- font id: 3
  536. -- text size: 12
  537. -- style flags: 0
  538. -- line height: 16
  539. -- part name: the Parity
  540.  
  541.  
  542. -- part 26 (field)
  543. -- low flags: 80
  544. -- high flags: 0000
  545. -- rect: left=373 top=130 right=149 bottom=441
  546. -- title width / last selected line: 0
  547. -- icon id / first selected line: 0 / 0
  548. -- text alignment: 0
  549. -- font id: 3
  550. -- text size: 12
  551. -- style flags: 0
  552. -- line height: 16
  553. -- part name: the stop bits
  554.  
  555.  
  556. -- part 28 (button)
  557. -- low flags: 00
  558. -- high flags: 2000
  559. -- rect: left=219 top=111 right=144 bottom=261
  560. -- title width / last selected line: 0
  561. -- icon id / first selected line: 2507 / 2507
  562. -- text alignment: 1
  563. -- font id: 0
  564. -- text size: 12
  565. -- style flags: 0
  566. -- line height: 16
  567. -- part name: 
  568. ----- HyperTalk script -----
  569. on mouseUp
  570.   visual effect barn door open
  571.   go to next card
  572. end mouseUp
  573.  
  574.  
  575.  
  576. -- part 29 (button)
  577. -- low flags: 00
  578. -- high flags: A003
  579. -- rect: left=261 top=309 right=331 bottom=394
  580. -- title width / last selected line: 0
  581. -- icon id / first selected line: 0 / 0
  582. -- text alignment: 1
  583. -- font id: 0
  584. -- text size: 12
  585. -- style flags: 0
  586. -- line height: 16
  587. -- part name: Cancel
  588. ----- HyperTalk script -----
  589. on mouseUp
  590.   global whom, ship_ok
  591.   visual effect barn door close
  592.   get writemodem("AT S0=0" & return)
  593.   wait 1 second
  594.   get readmodem()
  595.   if it is 0 then
  596.     go to card "start"
  597.     exit mouseup
  598.   end if
  599.  
  600.   repeat while it is not 0
  601.     get readmodem()
  602.   end repeat
  603.  
  604.   go to card "start"
  605.  
  606. end mouseUp
  607.  
  608.  
  609.  
  610. -- part contents for card part 15
  611. ----- text -----
  612. 9941502
  613.  
  614. -- part contents for card part 23
  615. ----- text -----
  616. 2400
  617.  
  618. -- part contents for card part 24
  619. ----- text -----
  620. 8
  621.  
  622. -- part contents for card part 26
  623. ----- text -----
  624. 1
  625.  
  626. -- part contents for card part 25
  627. ----- text -----
  628. None
  629.  
  630. -- part contents for card part 21
  631. ----- text -----
  632. at s0=0
  633.  
  634. OK
  635.